home *** CD-ROM | disk | FTP | other *** search
/ Chip: Hang es video / CHIP_ZENESZERKESZTO_2005.ISO / audio_3 / visual / robotfunk / setup.exe / {app} / main.dxr / ui_317.ls < prev    next >
Encoding:
Text File  |  2003-11-19  |  1.3 KB  |  58 lines
  1. property spriteNum, md, startloc, myval, mychan, startval, mymid, myimg, scrbalk
  2. global scratchlist
  3.  
  4. on beginSprite me
  5.   startval = 0
  6.   mychan = spriteNum - 165
  7.   mymid = (sprite(spriteNum).left + sprite(spriteNum).member.width) / 2
  8.   mymem = sprite(spriteNum).member
  9.   myimg = sprite(spriteNum).member.image.duplicate()
  10.   sprite(spriteNum).member = new(#bitmap)
  11.   sprite(spriteNum).member.image = myimg
  12.   myimg = sprite(spriteNum).member.image
  13.   scrbalk = member("scratchbreed").image
  14. end
  15.  
  16. on mouseDown me
  17.   md = 1
  18.   startloc = the mouseH
  19. end
  20.  
  21. on mouseUp me
  22.   md = 0
  23.   myval = 0
  24.   startval = 0
  25.   scratchlist[mychan] = myval
  26. end
  27.  
  28. on update me, val
  29.   offval = 256 - (val / 2)
  30.   mrect = rect(offval, 0, offval + 133, 25)
  31.   myimg.copyPixels(scrbalk, myimg.rect, mrect)
  32.   scratchlist[mychan] = max(1, val)
  33. end
  34.  
  35. on setval me, val
  36.   offval = 256 - (val / 2)
  37.   mrect = rect(offval, 0, offval + 133, 25)
  38.   myimg.copyPixels(scrbalk, myimg.rect, mrect)
  39.   scratchlist[mychan] = max(1, val)
  40. end
  41.  
  42. on mouseUpOutSide me
  43.   md = 0
  44.   myval = 0
  45.   startval = 0
  46.   scratchlist[mychan] = myval
  47. end
  48.  
  49. on exitFrame me
  50.   if md then
  51.     myval = (the mouseH - mymid) * 2
  52.     scratchlist[mychan] = min(255, max(1, myval + startval))
  53.     offval = 256 - (scratchlist[mychan] / 2)
  54.     mrect = rect(offval, 0, offval + 133, 25)
  55.     myimg.copyPixels(scrbalk, myimg.rect, mrect)
  56.   end if
  57. end
  58.